# Dates
dates_out = read_parquet(here("data","dta_final.parquet"), as_data_frame = F) |>
  summarise(max_date = max(demog_date_time, na.rm = T),
            min_date = min(demog_date_time, na.rm = T)) |>
  collect()

ccat("Date Range:")
print(dates_out)

#  Number of Respondents
n_resp = read_parquet(here("data","dta_final.parquet"), as_data_frame = F) |>
  group_by(ResponseId) |> 
  summarise(n = n()) |>
  collect() |> 
  nrow()

ccat(paste("Number of Respondents:", n_resp))
ccat(paste("Number of Choices:", n_resp*10))
ccat(paste("Number of Profiles:", n_resp*10*2))

rm(dates_out, n_resp)